What PC? 1997 February/WPCFEB97.ISO/dxrs/jukebx02.dxr/00038_Quit Button Script.ls

Text File | 1996-12-09 | 1.5 KB | 74 lines

on hExit
  global md1, screen
  if rollOver(45) then
    if the mouseDown then
      if (md1 = "no") or (md1 = "hit") then
        set the memberNum of sprite 45 to 15
        set md1 to "hit"
      end if
    else
      set the memberNum of sprite 45 to 14
      if md1 = "hit" then
        MyExit()
      else
        set md1 to "no"
      end if
    end if
  else
    if the mouseDown then
      if md1 <> "hit" then
        set md1 to "yes"
      end if
    else
      set md1 to "no"
    end if
    set the memberNum of sprite 45 to 14
  end if
  if rollOver(1) and (the castNum of sprite 1 = 1) then
    if the mouseDown then
      repeat while the mouseDown
      end repeat
      set the memberNum of sprite 45 to 15
      set md1 to "hit"
      MyExit()
    end if
  end if
  if rollOver(1) and (the castNum of sprite 1 = 170) then
    if the mouseDown then
      repeat while the mouseDown
      end repeat
      set the memberNum of sprite 45 to 15
      set screen to 5
      MyExit()
    end if
  end if
  updateStage()
end

on MyExit
  global screen, md1
  repeat with r = 1 to 3
    sound stop r
  end repeat
  puppetSound(3, 152)
  case screen of
    1:
      set screen to 2
      set md1 to "no"
    2:
      nothing()
      set md1 to "no"
    3:
      unloadMember(member 3, 162)
      repeat with t = 1 to 48
        puppetSprite(t, 1)
      end repeat
      updateStage()
      repeat with t = 1 to 48
        set the locH of sprite t to 2000
      end repeat
      updateStage()
      play done
  end case
end